home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 27 / Mac Magazin and MacEasy Magazine CD - Issue 27.iso / Grafik & Text / GST-ClipNSave / Clip ’n’ Save / Clip ’n’ Save.rsrc / TEXT_1003.txt < prev    next >
Text File  |  1996-09-24  |  13KB  |  882 lines
  1. %%DocumentProcessColors: Black
  2. %%DocumentSuppliedResources: procset Adobe_packedarray 2.0 0
  3. %%+ procset Adobe_cmykcolor 1.1 0
  4. %%+ procset Adobe_cshow 1.1 0
  5. %%+ procset Adobe_customcolor 1.0 0
  6. %%+ procset Adobe_IllustratorA_AI3 1.0 1
  7. %AI3_ColorUsage: Black&White
  8. %AI3_TemplateBox: 306 396 306 396
  9. %AI3_TileBox: 30 31 582 761
  10. %AI3_DocumentPreview: Macintosh_Pic
  11. %%EndComments
  12. %%BeginProlog
  13. %%BeginResource: procset Adobe_packedarray 2.0 0
  14. %%Title: (Packed Array Operators)
  15. %%Version: 2.0 
  16. %%CreationDate: (8/2/90) ()
  17. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  18. userdict /Adobe_packedarray 5 dict dup begin put
  19. /initialize            % - initialize -
  20. {
  21. /packedarray where
  22.     {
  23.     pop
  24.     }
  25.     {
  26.     Adobe_packedarray begin
  27.     Adobe_packedarray
  28.         {
  29.         dup xcheck
  30.             {
  31.             bind
  32.             } if
  33.         userdict 3 1 roll put
  34.         } forall
  35.     end
  36.     } ifelse
  37. } def
  38. /terminate            % - terminate -
  39. {
  40. } def
  41. /packedarray        % arguments count packedarray array
  42. {
  43. array astore readonly
  44. } def
  45. /setpacking            % boolean setpacking -
  46. {
  47. pop
  48. } def
  49. /currentpacking        % - setpacking boolean
  50. {
  51. false
  52. } def
  53. currentdict readonly pop end
  54. %%EndResource
  55. Adobe_packedarray /initialize get exec
  56. %%BeginResource: procset Adobe_cmykcolor 1.1 0
  57. %%Title: (CMYK Color Operators)
  58. %%Version: 1.1 
  59. %%CreationDate: (1/23/89) ()
  60. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  61. currentpacking true setpacking
  62. userdict /Adobe_cmykcolor 4 dict dup begin put
  63. /initialize            % - initialize -
  64. {
  65. /setcmykcolor where
  66.     {
  67.     pop
  68.     }
  69.     {
  70.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  71.     /_setrgbcolor
  72.         /setrgbcolor load def
  73.     /_currentrgbcolor
  74.         /currentrgbcolor load def
  75.     Adobe_cmykcolor begin
  76.     Adobe_cmykcolor
  77.         {
  78.         dup xcheck
  79.             {
  80.             bind
  81.             } if
  82.         pop pop
  83.         } forall
  84.     end
  85.     end
  86.     Adobe_cmykcolor begin
  87.     } ifelse
  88. } def
  89. /terminate            % - terminate -
  90. {
  91. currentdict Adobe_cmykcolor eq
  92.     {
  93.     end
  94.     } if
  95. } def
  96. /setcmykcolor        % cyan magenta yellow black setcmykcolor -
  97. {
  98. 1 sub 4 1 roll
  99. 3
  100.     {
  101.     3 index add neg dup 0 lt
  102.         {
  103.         pop 0
  104.         } if
  105.     3 1 roll
  106.     } repeat
  107. Adobe_cmykcolor_vars /_setrgbcolor get exec
  108. pop
  109. } def 
  110. /currentcmykcolor    % - currentcmykcolor cyan magenta yellow black
  111. {
  112. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  113. 3
  114.     {
  115.     1 sub neg 3 1 roll
  116.     } repeat
  117. 0
  118. } def
  119. currentdict readonly pop end
  120. setpacking
  121. %%EndResource
  122. %%BeginResource: procset Adobe_cshow 1.1 0
  123. %%Title: (cshow Operator)
  124. %%Version: 1.1 
  125. %%CreationDate: (1/23/89) ()
  126. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  127. currentpacking true setpacking
  128. userdict /Adobe_cshow 3 dict dup begin put
  129. /initialize            % - initialize -
  130. {
  131. /cshow where
  132.     {
  133.     pop
  134.     }
  135.     {
  136.     userdict /Adobe_cshow_vars 1 dict dup begin put
  137.     /_cshow        % - _cshow proc
  138.         {} def
  139.     Adobe_cshow begin
  140.     Adobe_cshow
  141.         {
  142.         dup xcheck
  143.             {
  144.             bind
  145.             } if
  146.         userdict 3 1 roll put
  147.         } forall
  148.     end
  149.     end
  150.     } ifelse
  151. } def
  152. /terminate            % - terminate -
  153. {
  154. } def
  155. /cshow                % proc string cshow -
  156. {
  157. exch
  158. Adobe_cshow_vars
  159.     exch /_cshow
  160.     exch put
  161.     {
  162.     0 0 Adobe_cshow_vars /_cshow get exec
  163.     } forall
  164. } def
  165. currentdict readonly pop end
  166. setpacking
  167. %%EndResource
  168. %%BeginResource: procset Adobe_customcolor 1.0 0
  169. %%Title: (Custom Color Operators)
  170. %%Version: 1.0 
  171. %%CreationDate: (5/9/88) ()
  172. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  173. currentpacking true setpacking
  174. userdict /Adobe_customcolor 5 dict dup begin put
  175. /initialize            % - initialize -
  176. {
  177. /setcustomcolor where
  178.     {
  179.     pop
  180.     }
  181.     {
  182.     Adobe_customcolor begin
  183.     Adobe_customcolor
  184.         {
  185.         dup xcheck
  186.             {
  187.             bind
  188.             } if
  189.         pop pop
  190.         } forall
  191.     end
  192.     Adobe_customcolor begin
  193.     } ifelse
  194. } def
  195. /terminate            % - terminate -
  196. {
  197. currentdict Adobe_customcolor eq
  198.     {
  199.     end
  200.     } if
  201. } def
  202. /findcmykcustomcolor    % cyan magenta yellow black name findcmykcustomcolor object
  203. {
  204. 5 packedarray
  205. }  def
  206. /setcustomcolor        % object tint setcustomcolor -
  207. {
  208. exch
  209. aload pop pop
  210. 4
  211.     {
  212.     4 index mul 4 1 roll
  213.     } repeat
  214. 5 -1 roll pop
  215. setcmykcolor
  216. } def
  217. /setoverprint        % boolean setoverprint -
  218. {
  219. pop
  220. } def
  221. currentdict readonly pop end
  222. setpacking
  223. %%EndResource
  224. %%BeginResource: procset Adobe_IllustratorA_AI3 1.0 2
  225. %%Title: (Adobe Illustrator (R) Version 3.0 Abbreviated Prolog)
  226. %%Version: 1.0 
  227. %%CreationDate: (7/22/89) ()
  228. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  229. currentpacking true setpacking
  230. userdict /Adobe_IllustratorA_AI3 61 dict dup begin put
  231. % initialization
  232. /initialize                % - initialize -
  233. {
  234. % 47 vars, but leave slack of 10 entries for custom Postscript fragments
  235. userdict /Adobe_IllustratorA_AI3_vars 57 dict dup begin put
  236. % paint operands
  237. /_lp /none def
  238. /_pf {} def
  239. /_ps {} def
  240. /_psf {} def
  241. /_pss {} def
  242. /_pjsf {} def
  243. /_pjss {} def
  244. /_pola 0 def
  245. /_doClip 0 def
  246. % paint operators
  247. /cf    currentflat def    % - cf flatness
  248. % typography operands
  249. /_tm matrix def
  250. /_renderStart [/e0 /r0 /a0 /o0 /e1 /r1 /a1 /i0] def 
  251. /_renderEnd [null null null null /i1 /i1 /i1 /i1] def
  252. /_render -1 def
  253. /_rise 0 def
  254. /_ax 0 def            % x character spacing    (_ax, _ay, _cx, _cy follows awidthshow naming convention)
  255. /_ay 0 def            % y character spacing
  256. /_cx 0 def            % x word spacing
  257. /_cy 0 def            % y word spacing
  258. /_leading [0 0] def
  259. /_ctm matrix def
  260. /_mtx matrix def
  261. /_sp 16#020 def
  262. /_hyphen (-) def
  263. /_fScl 0 def
  264. /_cnt 0 def
  265. /_hs 1 def
  266. /_nativeEncoding 0 def
  267. /_useNativeEncoding 0 def
  268. /_tempEncode 0 def
  269. /_pntr 0 def
  270. /_tDict 2 dict def
  271. % typography operators
  272. /Tx {} def
  273. /Tj {} def
  274. % compound path operators
  275. /CRender {} def
  276. % printing
  277. /_AI3_savepage {} def
  278. % color operands
  279. /_gf null def
  280. /_cf 4 array def
  281. /_if null def
  282. /_of false def
  283. /_fc {} def
  284. /_gs null def
  285. /_cs 4 array def
  286. /_is null def
  287. /_os false def
  288. /_sc {} def
  289. /_i null def
  290. Adobe_IllustratorA_AI3 begin
  291. Adobe_IllustratorA_AI3
  292.     {
  293.     dup xcheck
  294.         {
  295.         bind
  296.         } if
  297.     pop pop
  298.     } forall
  299. end
  300. end
  301. Adobe_IllustratorA_AI3 begin
  302. Adobe_IllustratorA_AI3_vars begin
  303. newpath
  304. } def
  305. /terminate                % - terminate -
  306. {
  307. end
  308. end
  309. } def
  310. % definition operators
  311. /_                    % - _ null
  312. null def
  313. /ddef                % key value ddef -
  314. {
  315. Adobe_IllustratorA_AI3_vars 3 1 roll put
  316. } def
  317. /xput                % key value literal xput -
  318. {
  319. dup load dup length exch maxlength eq
  320.     {
  321.     dup dup load dup
  322.     length 2 mul dict copy def
  323.     } if
  324. load begin def end
  325. } def
  326. /npop                % integer npop -
  327. {
  328.     {
  329.     pop
  330.     } repeat
  331. } def
  332. % marking operators
  333. /sw                    % ax ay string sw x y 
  334. {
  335. dup length exch stringwidth
  336. exch 5 -1 roll 3 index 1 sub mul add
  337. 4 1 roll 3 1 roll 1 sub mul add
  338. } def
  339. /swj                % cx cy fillchar ax ay string swj x y
  340. {
  341. dup 4 1 roll
  342. dup length exch stringwidth 
  343. exch 5 -1 roll 3 index 1 sub mul add
  344. 4 1 roll 3 1 roll 1 sub mul add 
  345. 6 2 roll /_cnt 0 ddef
  346. {1 index eq {/_cnt _cnt 1 add ddef} if} forall pop
  347. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  348. } def
  349. /ss                    % ax ay string matrix ss -
  350. {
  351. 4 1 roll
  352.     {                % matrix ax ay char 0 0 {proc} -
  353.     2 npop 
  354.     (0) exch 2 copy 0 exch put pop
  355.     gsave
  356.     false charpath currentpoint
  357.     4 index setmatrix
  358.     stroke
  359.     grestore
  360.     moveto
  361.     2 copy rmoveto
  362.     } exch cshow
  363. 3 npop
  364. } def
  365. /jss                % cx cy fillchar ax ay string matrix jss -
  366. {
  367. 4 1 roll
  368.     {                % cx cy fillchar matrix ax ay char 0 0 {proc} -   
  369.     2 npop 
  370.     (0) exch 2 copy 0 exch put 
  371.     gsave
  372.     _sp eq 
  373.         {
  374.         exch 6 index 6 index 6 index 5 -1 roll widthshow  
  375.         currentpoint
  376.         }
  377.         {
  378.         false charpath currentpoint
  379.         4 index setmatrix stroke
  380.         }ifelse
  381.     grestore
  382.     moveto
  383.     2 copy rmoveto
  384.     } exch cshow
  385. 6 npop
  386. } def
  387. % path operators
  388. /sp                    % ax ay string sp -
  389. {
  390.     {
  391.     2 npop (0) exch
  392.     2 copy 0 exch put pop
  393.     false charpath
  394.     2 copy rmoveto
  395.     } exch cshow
  396. 2 npop
  397. } def
  398. /jsp                    % cx cy fillchar ax ay string jsp -
  399. {
  400.     {                    % cx cy fillchar ax ay char 0 0 {proc} -
  401.     2 npop 
  402.     (0) exch 2 copy 0 exch put 
  403.     _sp eq 
  404.         {
  405.         exch 5 index 5 index 5 index 5 -1 roll widthshow  
  406.         }
  407.         {
  408.         false charpath
  409.         }ifelse
  410.     2 copy rmoveto
  411.     } exch cshow
  412. 5 npop
  413. } def
  414. % path construction operators
  415. /pl                % x y pl x y
  416. {
  417. transform
  418. 0.25 sub round 0.25 add exch
  419. 0.25 sub round 0.25 add exch
  420. itransform
  421. } def
  422. /setstrokeadjust where
  423.     {
  424.     pop true setstrokeadjust
  425.     /c                % x1 y1 x2 y2 x3 y3 c -
  426.     {
  427.     curveto
  428.     } def
  429.     /C
  430.     /c load def
  431.     /v                % x2 y2 x3 y3 v -
  432.     {
  433.     currentpoint 6 2 roll curveto
  434.     } def
  435.     /V
  436.     /v load def
  437.     /y                % x1 y1 x2 y2 y -
  438.     {
  439.     2 copy curveto
  440.     } def
  441.     /Y
  442.     /y load def
  443.     /l                % x y l -
  444.     {
  445.     lineto
  446.     } def
  447.     /L
  448.     /l load def
  449.     /m                % x y m -
  450.     {
  451.     moveto
  452.     } def
  453.     }
  454.     {%else
  455.     /c
  456.     {
  457.     pl curveto
  458.     } def
  459.     /C
  460.     /c load def
  461.     /v
  462.     {
  463.     currentpoint 6 2 roll pl curveto
  464.     } def
  465.     /V
  466.     /v load def
  467.     /y
  468.     {
  469.     pl 2 copy curveto
  470.     } def
  471.     /Y
  472.     /y load def
  473.     /l
  474.     {
  475.     pl lineto
  476.     } def
  477.     /L
  478.     /l load def
  479.     /m
  480.     {
  481.     pl moveto
  482.     } def
  483.     }ifelse
  484. % graphic state operators
  485. /d                    % array phase d -
  486. {
  487. setdash
  488. } def
  489. /cf    {} def            % - cf flatness
  490. /i                    % flatness i -
  491. {
  492. dup 0 eq
  493.     {
  494.     pop cf
  495.     } if
  496. setflat
  497. } def
  498. /j                    % linejoin j -
  499. {
  500. setlinejoin
  501. } def
  502. /J                    % linecap J -
  503. {
  504. setlinecap
  505. } def
  506. /M                    % miterlimit M -
  507. {
  508. setmiterlimit
  509. } def
  510. /w                    % linewidth w -
  511. {
  512. setlinewidth
  513. } def
  514. % path painting operators
  515. /H                    % - H -
  516. {} def
  517. /h                    % - h -
  518. {
  519. closepath
  520. } def
  521. /N                    % - N -
  522. {
  523. _pola 0 eq 
  524.     {
  525.     _doClip 1 eq {clip /_doClip 0 ddef} if 
  526.     newpath
  527.     } 
  528.     {
  529.     /CRender {N} ddef
  530.     }ifelse
  531. } def
  532. /n                    % - n -
  533. {N} def
  534. /F                    % - F -
  535. {
  536. _pola 0 eq 
  537.     {
  538.     _doClip 1 eq 
  539.         {
  540.         gsave _pf grestore clip newpath /_lp /none ddef _fc 
  541.         /_doClip 0 ddef
  542.         }
  543.         {
  544.         _pf
  545.         }ifelse
  546.     } 
  547.     {
  548.     /CRender {F} ddef
  549.     }ifelse
  550. } def
  551. /f                    % - f -
  552. {
  553. closepath
  554. F
  555. } def
  556. /S                    % - S -
  557. {
  558. _pola 0 eq 
  559.     {
  560.     _doClip 1 eq 
  561.         {
  562.         gsave _ps grestore clip newpath /_lp /none ddef _sc 
  563.         /_doClip 0 ddef
  564.         }
  565.         {
  566.         _ps
  567.         }ifelse
  568.     } 
  569.     {
  570.     /CRender {S} ddef
  571.     }ifelse
  572. } def
  573. /s                    % - s -
  574. {
  575. closepath
  576. S
  577. } def
  578. /B                    % - B -
  579. {
  580. _pola 0 eq 
  581.     {
  582.     _doClip 1 eq     % F clears _doClip
  583.     gsave F grestore 
  584.         {
  585.         gsave S grestore clip newpath /_lp /none ddef _sc
  586.         /_doClip 0 ddef
  587.         } 
  588.         {
  589.         S
  590.         }ifelse
  591.     }
  592.     {
  593.     /CRender {B} ddef
  594.     }ifelse
  595. } def
  596. /b                    % - b -
  597. {
  598. closepath
  599. B
  600. } def
  601. /W                    % - W -
  602. {
  603. /_doClip 1 ddef
  604. } def
  605. /*                    % - [string] * -
  606. {
  607. count 0 ne 
  608.     {
  609.     dup type (stringtype) eq {pop} if
  610.     } if 
  611. _pola 0 eq {newpath} if
  612. } def
  613. % group operators
  614. /u                    % - u -
  615. {} def
  616. /U                    % - U -
  617. {} def
  618. /q                    % - q -
  619. {
  620. _pola 0 eq {gsave} if
  621. } def
  622. /Q                    % - Q -
  623. {
  624. _pola 0 eq {grestore} if
  625. } def
  626. /*u                    % - *u -
  627. {
  628. _pola 1 add /_pola exch ddef
  629. } def
  630. /*U                    % - *U -
  631. {
  632. _pola 1 sub /_pola exch ddef 
  633. _pola 0 eq {CRender} if
  634. } def
  635. /D                    % polarized D -
  636. {pop} def
  637. /*w                    % - *w -
  638. {} def
  639. /*W                    % - *W -
  640. {} def
  641. % place operators
  642. /`                    % matrix llx lly urx ury string ` -
  643. {
  644. /_i save ddef
  645. 6 1 roll 4 npop
  646. concat pop
  647. userdict begin
  648. /showpage {} def
  649. 0 setgray
  650. 0 setlinecap
  651. 1 setlinewidth
  652. 0 setlinejoin
  653. 10 setmiterlimit
  654. [] 0 setdash
  655. newpath
  656. 0 setgray
  657. false setoverprint
  658. } def
  659. /~                    % - ~ -
  660. {
  661. end
  662. _i restore
  663. } def
  664. % color operators
  665. /O                    % flag O -
  666. {
  667. 0 ne
  668. /_of exch ddef
  669. /_lp /none ddef
  670. } def
  671. /R                    % flag R -
  672. {
  673. 0 ne
  674. /_os exch ddef
  675. /_lp /none ddef
  676. } def
  677. /g                    % gray g -
  678. {
  679. /_gf exch ddef
  680. /_fc
  681. { 
  682. _lp /fill ne
  683.     {
  684.     _of setoverprint
  685.     _gf setgray
  686.     /_lp /fill ddef
  687.     } if
  688. } ddef
  689. /_pf
  690. {
  691. _fc
  692. fill
  693. } ddef
  694. /_psf
  695. {
  696. _fc
  697. ashow
  698. } ddef
  699. /_pjsf
  700. {
  701. _fc
  702. awidthshow
  703. } ddef
  704. /_lp /none ddef
  705. } def
  706. /G                    % gray G -
  707. {
  708. /_gs exch ddef
  709. /_sc
  710. {
  711. _lp /stroke ne
  712.     {
  713.     _os setoverprint
  714.     _gs setgray
  715.     /_lp /stroke ddef
  716.     } if
  717. } ddef
  718. /_ps
  719. {
  720. _sc
  721. stroke
  722. } ddef
  723. /_pss
  724. {
  725. _sc
  726. ss
  727. } ddef
  728. /_pjss
  729. {
  730. _sc
  731. jss
  732. } ddef
  733. /_lp /none ddef
  734. } def
  735. /k                    % cyan magenta yellow black k -
  736. {
  737. _cf astore pop
  738. /_fc
  739. {
  740. _lp /fill ne
  741.     {
  742.     _of setoverprint
  743.     _cf aload pop setcmykcolor
  744.     /_lp /fill ddef
  745.     } if
  746. } ddef
  747. /_pf
  748. {
  749. _fc
  750. fill
  751. } ddef
  752. /_psf
  753. {
  754. _fc
  755. ashow
  756. } ddef
  757. /_pjsf
  758. {
  759. _fc
  760. awidthshow
  761. } ddef
  762. /_lp /none ddef
  763. } def
  764. /K                    % cyan magenta yellow black K -
  765. {
  766. _cs astore pop
  767. /_sc
  768. {
  769. _lp /stroke ne
  770.     {
  771.     _os setoverprint
  772.     _cs aload pop setcmykcolor
  773.     /_lp /stroke ddef
  774.     } if
  775. } ddef
  776. /_ps
  777. {
  778. _sc
  779. stroke
  780. } ddef
  781. /_pss
  782. {
  783. _sc
  784. ss
  785. } ddef
  786. /_pjss
  787. {
  788. _sc
  789. jss
  790. } ddef
  791. /_lp /none ddef
  792. } def
  793. /x                    % cyan magenta yellow black name gray x -
  794. {
  795. /_gf exch ddef
  796. findcmykcustomcolor
  797. /_if exch ddef
  798. /_fc
  799. { 
  800. _lp /fill ne
  801.     {
  802.     _of setoverprint
  803.     _if _gf 1 exch sub setcustomcolor
  804.     /_lp /fill ddef
  805.     } if
  806. } ddef
  807. /_pf
  808. {
  809. _fc
  810. fill
  811. } ddef
  812. /_psf
  813. {
  814. _fc
  815. ashow
  816. } ddef
  817. /_pjsf
  818. {
  819. _fc
  820. awidthshow
  821. } ddef
  822. /_lp /none ddef
  823. } def
  824. /X                    % cyan magenta yellow black name gray X -
  825. {
  826. /_gs exch ddef
  827. findcmykcustomcolor
  828. /_is exch ddef
  829. /_sc
  830. {
  831. _lp /stroke ne
  832.     {
  833.     _os setoverprint
  834.     _is _gs 1 exch sub setcustomcolor
  835.     /_lp /stroke ddef
  836.     } if
  837. } ddef
  838. /_ps
  839. {
  840. _sc
  841. stroke
  842. } ddef
  843. /_pss
  844. {
  845. _sc
  846. ss
  847. } ddef
  848. /_pjss
  849. {
  850. _sc
  851. jss
  852. } ddef
  853. /_lp /none ddef
  854. } def
  855. % locked object operator
  856. /A                    % value A -
  857. {
  858. pop
  859. } def
  860. currentdict readonly pop end
  861. setpacking
  862. % annotate page operator
  863. /annotatepage
  864. {
  865. } def
  866. %%EndResource
  867. %%EndProlog
  868. %%BeginSetup
  869. Adobe_cmykcolor /initialize get exec
  870. Adobe_cshow /initialize get exec
  871. Adobe_customcolor /initialize get exec
  872. Adobe_IllustratorA_AI3 /initialize get exec
  873. %%EndSetup
  874. 0 A
  875. u
  876. u
  877. 0 O
  878. 0 g
  879. 0 i 0 J 0 j 1 w 4 M []0 d
  880. %AI3_Note:
  881. 0 D
  882.